library(readxl)
library(ggplot2)
## Registered S3 methods overwritten by 'ggplot2':
## method from
## [.quosures rlang
## c.quosures rlang
## print.quosures rlang
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
library(scales)
Fig5 <- read_excel("C:/Users/JaimePinillaDomingue/Desktop/Fig5.xlsx")
newF5<- subset(Fig5, F_publi>0)
q<-(ggplot(newF5, aes(F_publi, fill = Tipo)) + geom_density(alpha = 0.2)+
xlab("")+
ylab("")+
scale_x_continuous(breaks=c(1:20))+
facet_grid(Periodo~.)+
theme(legend.position="bottom",legend.title=element_blank()))